home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / mansion setup (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  11.0 KB  |  449 lines
  1. 10 dim dm(11),db(11)
  2. 20 gosub 50000:gosub 60000
  3. 27 rem
  4. 28 rem switch to mansion entrance
  5. 29 rem
  6. 100 save "@0:display setup",8
  7. 110 for i=0 to 3:poke 1024+i,peek(43+i):next
  8. 120 poke 43,0:poke 44,72:poke 45,0:poke 46,128:save "@0:display data",8,1
  9. 130 poke 43,peek(1024):poke 44,peek(1025):poke 45,peek(1026):poke 46,peek(1027)
  10. 140 print "[146]press run/stop-restore";:poke br,yq:print "";:end
  11. 49995 rem
  12. 49996 rem arrange video memory
  13. 49997 rem
  14. 49998 rem set video bank
  15. 49999 rem
  16. 50000 vm=2:vb=16384:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or vm
  17. 50007 rem
  18. 50008 rem set char & screen mem values
  19. 50009 rem
  20. 50010 cm=14:cb=vb+cm*1024:for i=0 to 11:dm(i)=cm+16*(i+2):next
  21. 50020 vr=53272:zq=peek(vr)
  22. 50027 rem
  23. 50028 rem tell basic where screen is
  24. 50029 rem
  25. 50030 for i=0 to 11:db(i)=int((vb+1024*(i+2))/256):next
  26. 50040 br=648:yq=peek(br)
  27. 50050 poke 53281,7:poke 53280,11:print "[149]";
  28. 50095 rem
  29. 50096 rem set up displays
  30. 50097 rem
  31. 50098 rem move to proper screen
  32. 50099 rem
  33. 51000 for i=0 to 11:poke vr,dm(i):poke br,db(i):print "[147]";
  34. 51001 rem beginwith for i=0 to 11:
  35. 51007 rem
  36. 51008 rem read one line at a time
  37. 51009 rem
  38. 51010 for x=0 to 23:read a$
  39. 51015 print "";:if x>0 then for j=1 to x:print "";:next j
  40. 51020 y=len(a$):z=0
  41. 51027 rem
  42. 51028 rem loop to read packed data
  43. 51029 rem
  44. 51030 z=z+1
  45. 51035 b$=mid$(a$,z,1):t=asc(b$):if t=212 or t=213 then 51060
  46. 51040 if t>96 or (t>52 and t<64) then print ""b$;:goto 51070
  47. 51047 rem
  48. 51048 rem loop to print unpacked data
  49. 51049 rem
  50. 51060 z=z+1:b=asc(mid$(a$,z,1)):print "";:for j=1 to b-48:print b$;:next j
  51. 51070 if z<y then 51030
  52. 51080 next x
  53. 51090 next i:return
  54. 52000 data "[205][194][194][194][194][194]9==:[194][194][194][198][194][194][194][194][198][194][194][194][194]9==:[194][194][194][194][194][204]g7"
  55. 52001 data "[193]k<[193]c4[193]l=[193]g7"
  56. 52002 data "[193]k<[193]c4[193]l=[195]g7"
  57. 52003 data "[193]k<5c4[193]l=[195]g7"
  58. 52004 data "[193]k<=c4[193]l=[195]g7"
  59. 52005 data "[193]k<=c4[193]l=[195]g7"
  60. 52006 data "[193]k<6c4[193]l=[195]g7"
  61. 52007 data "[193]k<[206]>>>>[207]l=[195]g7"
  62. 52008 data "7k<[206]a4[207]l=[193]g7"
  63. 52009 data "=k<[206]a4[207][194][194][194][194]9==:[194][194][194][194][194][204]g7"
  64. 52010 data "=k<[206]a4[207]j=[193]g7"
  65. 52011 data "8k<[206]a4[207]j=[195]g7"
  66. 52012 data "[193]k<[206]a4[207]j=[195]g7"
  67. 52013 data "[193]k<[206]a4[207]j=[195]g7"
  68. 52014 data "[193]k?j@[195]g7"
  69. 52015 data "[193]k?j@[195]g7"
  70. 52016 data "[193]k?j@[193]f5g2"
  71. 52017 data "[193]k?j@[193]f5g2"
  72. 52018 data "[197][194][194][194][196][196][196][196][196][196][194][194][194][194];==<[194][194][194][194][196][196][196][196][196][196][194][194][194][194][201]f5g2"
  73. 52019 data "fvg2"
  74. 52020 data "fvg2"
  75. 52021 data "fvg2"
  76. 52022 data "fvg2"
  77. 52023 data "fvg2"
  78. 52100 data "g7[199][196][196][196][196][196][194]9==:[194][194][197][194][194]9=[194][194][194][194][194][194][197][194][194]=:[194][194][194][205]"
  79. 52101 data "g7[193]pbn4m6[210][210][210][193]"
  80. 52102 data "g7[193]pbn4m8[210][193]"
  81. 52103 data "g7[195]pa[199]n4[200]m7[210][193]"
  82. 52104 data "g7[195]p=[206]a3[207]n4[193][210]m6[210][193]"
  83. 52105 data "g7[195]p=[206]a3[207]n4[193][210]m6[210][193]"
  84. 52106 data "g7[195]p=[206]a3[207]n4[193][210]m6[210][193]"
  85. 52107 data "g7[193]p=[206]???[203][194][194][194][194][204][211]m6[210][193]"
  86. 52108 data "g7[193]p=5c3[193]o4[214][211]m75"
  87. 52109 data "g7[193]p==c3[193]o4[193][210]m7="
  88. 52110 data "g7[193]p=6c3[193]o4[193][210]m7="
  89. 52111 data "g7[193]p=[206]>>>[207]o4[193][210]m76"
  90. 52112 data "g7[195]p=[206]a3[207]o4[193][210]m6[210][193]"
  91. 52113 data "g7[195]p=[206]a3[207]o4[193][210]m6[210][193]"
  92. 52114 data "g7[195]p=[206]a3[207]o4[193][210]m6[210][193]"
  93. 52115 data "g7[195]pa[202][194];=[194][201]m7[211][193]"
  94. 52116 data "g2f5[193]pbm<[211][193]"
  95. 52117 data "g2f5[193]pbm8[210][210][210][210][210][193]"
  96. 52118 data "g2f5[202][194][194][194][194][196][196][196][196][196][196][194][194][194][194];==<[194][194][194][194][196][196][196][196][196][196][194][194][194][197]"
  97. 52119 data "g2fv"
  98. 52120 data "g2fv"
  99. 52121 data "g2fv"
  100. 52122 data "g2fv"
  101. 52123 data "g2fv"
  102. 52200 data "eug3"
  103. 52201 data "eug3"
  104. 52202 data "eug3"
  105. 52203 data "eug3"
  106. 52204 data "eug3"
  107. 52205 data "[199][196][196][196][194][196][196][196][198][194][196][196][194][198][194];==<;==<;==<;==<[194][200]e4g3"
  108. 52206 data "[195]r7[193][209]b3[193]qb[193]e4g3"
  109. 52207 data "[195]r7[203][194][194]b2[193]qb[193]e4g3"
  110. 52208 data "[193]r7[193][210]b3[193]qb[195]g7"
  111. 52209 data "7r7[193][211]b3[193]qb[193]g7"
  112. 52210 data "=r7[193][211]b3[193]qb[195]g7"
  113. 52211 data "[193]r7[193][210]b3[193]qb[193]g7"
  114. 52212 data "[203][194][194][194][194]=<[194][197][194][194]=<[204]qb[195]g7"
  115. 52213 data "[193]s<[193]qb[193]g7"
  116. 52214 data "[195]s<[193]qb[195]g7"
  117. 52215 data "[193]s<[193]qb[193]g7"
  118. 52216 data "7s<5qb[195]g7"
  119. 52217 data "=s<=qb[193]g7"
  120. 52218 data "=s<=qb[195]g7"
  121. 52219 data "8s7[206]>[207]s26q5[210][210][210][210]q9[193]g7"
  122. 52220 data "[193]s7[206]a1[207]s2[193]q5[210]q2[210]q9[195]g7"
  123. 52221 data "[195]s<[206]a4[207][211]q<[193]g7"
  124. 52222 data "[193]s<[206]a4[207][210][210][210][210]q9[193]g7"
  125. 52223 data "[205][194][194][194][194][194]9==:[194][194][194][205]????[205][194][194][194][194]9==:[194][194][194][194][194][204]g7"
  126. 52300 data "v?ei"
  127. 52301 data "v?ei"
  128. 52302 data "v6w3v6ei"
  129. 52303 data "v6w3v6ei"
  130. 52304 data "v4w7v4ei"
  131. 52305 data "v4w7v:tb[199]"
  132. 52306 data "v4w7v:tb[195]"
  133. 52307 data "v6w3v<tb[195]"
  134. 52308 data "v6w3v<tb[193]"
  135. 52309 data "vetb7"
  136. 52310 data "vetb="
  137. 52311 data "vetb[193]"
  138. 52312 data "vetb[203]"
  139. 52313 data "g7v>tb[193]"
  140. 52314 data "g7v=[199][196][196][196][196][196][196][196][196][196][196][200]t7[195]"
  141. 52315 data "g7v=[195]u:[195]t7[193]"
  142. 52316 data "g7v=[195]u:[195]t77"
  143. 52317 data "g7v=[195]u:[195]t7="
  144. 52318 data "g7v=[195]u:[195]t7="
  145. 52319 data "g7v=[195]u:[195]t78"
  146. 52320 data "g7v=[195]u:[195]t7[193]"
  147. 52321 data "g7v=[195]u:[195]t7[195]"
  148. 52322 data "g7v=[195]u:[216]t7[193]"
  149. 52323 data "g7[199][196][196][196][196][196][194]9==:[194][194][197][194][194]9=[194][194][194][194][194][194][197][194][194]=:[194][194][194][205]"
  150. 52400 data "[193]xo[193][212]7"
  151. 52401 data "[193]xo[193][212]7"
  152. 52402 data "[193]xo[193][212]7"
  153. 52403 data "[203][194][194][194][194][194][194][194]9==:[194][198][194][194][194][194][200]x=[193][212]7"
  154. 52404 data "[204][<[206]>>>>[207]x=[193][212]7"
  155. 52405 data "[193][<[206]a4[207]x=[193][212]7"
  156. 52406 data "[193][<[206]a4[207]x=[193][212]7"
  157. 52407 data "[193][<[206]a4[207]x=[193][212]7"
  158. 52408 data "[214][<[206]a4[207]x=[193][212]7"
  159. 52409 data "[203][194][194][194][194][194][194][194];==<[194][201]z4[203][194][194][194][194][194][194][194]=:[194][194][194][194][204][212]7"
  160. 52410 data "[193]za[193]y=[193][212]7"
  161. 52411 data "=za[193]y=[193][212]7"
  162. 52412 data "6za[193]y=[193][212]7"
  163. 52413 data "[193]za7y=[193][212]7"
  164. 52414 data "[193]za=y=[193][212]7"
  165. 52415 data "[193]za=y=[193][212]7"
  166. 52416 data "[193]za8y=[193][212]7"
  167. 52417 data "[193]za[193]y=[193][212]7"
  168. 52418 data "[193]za[193]y=[193][212]7"
  169. 52419 data "[193]za[193]y=[193][212]7"
  170. 52420 data "[193]za[193]y=[193][212]7"
  171. 52421 data "[193]za[193]y=[193][212]7"
  172. 52422 data "[193]za[193]y=[193][212]7"
  173. 52423 data "[197][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][197][194][194][194][194][194][194][194][194][194][194][194][194][194][201][212]7"
  174. 52500 data "[212]7[199][194][194][194][194][194][194][194][194][194][194][194][194][194][198][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][204]"
  175. 52501 data "[212]7[193]_=5\@[218][193]"
  176. 52502 data "[212]7[193]_==\a[193]"
  177. 52503 data "[212]7[193]_7[199][194]=:[194][194][204]\a[193]"
  178. 52504 data "[212]7[193]_7[193][209]b4[206]a3[207]\=[193]"
  179. 52505 data "[212]7[193]_7[193][211]b4[206]a3[207]\=[193]"
  180. 52506 data "[212]7[193]_7[193][210]b4[206]a3[207]\=="
  181. 52507 data "[212]7[193]_7[203][194][194][194][194][194][206]a3[207]\=6"
  182. 52508 data "[212]7[193]_7[193][210]b4[206]a3[207]\2[199][194][198]9=[194][198][194][194][194][194][204]"
  183. 52509 data "[212]7[203][194][194];=<[194][194][204][211]b4[206]???[207]\2[193][208][193]b2[211][214]c4[193]"
  184. 52510 data "[212]7[193]c7[193][209]b4[214]c3[193]\2[193]b4[211][203]9==:[204]"
  185. 52511 data "[212]7[203][194][194][194][194][194][194][194][197][194]=<[194][194][197]9=:[204]\2[203][194][194][194][194][194][204]]4[193]"
  186. 52512 data "[212]7[193]^a5\2[193][209]b4[193]]4[193]"
  187. 52513 data "[212]7[193]^a=\2[193][211]b4[193]]4[193]"
  188. 52514 data "[212]7[193]^a[203]9=[204][210]b4[193]]4[193]"
  189. 52515 data "[212]7[193]^a[193]]2[202][194]=<[194][194][201]]4[193]"
  190. 52516 data "[212]7[193]^a[193]]=[193]"
  191. 52517 data "[212]7[193]^a[193]]=[193]"
  192. 52518 data "[212]7[202][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][197][194][194][194][194][194][194][194][194][194][194][194][194][194][197]"
  193. 52519 data "[212]x"
  194. 52520 data "[212]x"
  195. 52521 data "[212]x"
  196. 52522 data "[212]x"
  197. 52523 data "[212]x"
  198. 52600 data "[205][194][194][194][194][194][194][194][194][194][194][194][194][205][215][204]>>[207]i3[203][194][194][194][194][194][194][194][194][194][204]h4[213]3"
  199. 52601 data "[193] <[193]c1[206]a2[207]i3[193]#9[193]h4[213]3"
  200. 52602 data "[193] <5c1[206]a2[207]i3[193]#97h4[213]3"
  201. 52603 data "[193] <=c1[206]a2[207]i37#9=h4[213]3"
  202. 52604 data "[193] <6c1[206]a2[207]i3=#9=h4[213]3"
  203. 52605 data "[193] <[193]c1[206]a2[207]i3[193]#98h4[213]3"
  204. 52606 data "[197][194][194][194][194][194][194][194][194][194]9=:[197][194][197]=:[201]i3[193]#97h4[213]3"
  205. 52607 data "if[193]#9=h4[213]3"
  206. 52608 data "if[193]#9=h4[213]3"
  207. 52609 data "if[193]#98h4[213]3"
  208. 52610 data "[198][194][194][198][194][194][194][194][194][194][194][194][194][194]=:[198][194][194][194][198][194][204]#9[193]h4[213]3"
  209. 52611 data "[193]c2[193]!<[193][210][211][210][193][208][193]#9[193]h4[213]3"
  210. 52612 data "[193]c2[193]!<[193]b5[193]#9[195]h4[213]3"
  211. 52613 data "[193]c27!<=b5=#9[195]h4[213]3"
  212. 52614 data "[193]c2=!<8b56#9[195]h4[213]3"
  213. 52615 data "[193]c28!<[193]b5[203][194][194][194];=<[194][194][194][204]h4[213]3"
  214. 52616 data "[193]c2[193]!<[193]b5[193]c9[193]h4[213]3"
  215. 52617 data "[193]c2[193]!<[193]b5[193]c9[193]h4[213]3"
  216. 52618 data "[197][194][194][197][196][196][196][194]9==:9==:[197][194][196][196][196][194][197][194][194][194][194][194][194][194][194][194][201]h4[213]3"
  217. 52619 data "hu[213]3"
  218. 52620 data "hu[213]3"
  219. 52621 data "hu[213]3"
  220. 52622 data "[213]x"
  221. 52623 data "[213]x"
  222. 52700 data "[213]3h4[199][194][194][196][196][196][194][194][198][194][194][194][194][194][198][194][194][194][196][196][196][196][194][194][194][198][194][194][196][196][194][194][205]"
  223. 52701 data "[213]3h4[193]b6[208][193][210][211][210][211][210][193]$:[193][209]b5[193]"
  224. 52702 data "[213]3h4[193]b7[193]'5[193]$:[203][194]b5[193]"
  225. 52703 data "[213]3h4[193]b7='5=$:[193][210]b5[193]"
  226. 52704 data "[213]3h4[193]b76'58$:[193][211]b5[193]"
  227. 52705 data "[213]3h4[203][194][194][194][194][194][194][194][204]'5[203];=<[200]$6[193][210]b5[193]"
  228. 52706 data "[213]3h4[193]c6[218][193]'5[203][194][198][194][205][194][194]=<[194][194][197][194]=<[194][194][194][197]"
  229. 52707 data "[213]3h4[203]9=:[194]9=:[201]'55c1[193]c17i>"
  230. 52708 data "[213]3h45&==c1[193]c1=i>"
  231. 52709 data "[213]3h4=&=6c1[193]c18i>"
  232. 52710 data "[213]3h4=&=[206]>>>[207]i2[199][194][194][194][194][194][194]=:[198][194][198]"
  233. 52711 data "[213]3h46&=[206]a3[207]i2[193]%85c1[193]"
  234. 52712 data "[213]3h45&=[206]a3[207]i2[193]%8=c1[193]"
  235. 52713 data "[213]3h4=&=[206]a3[207]i2[193]%8[193]c1[193]"
  236. 52714 data "[213]3h4=&=[206]a3[207]i2[193]%8[193]c1[193]"
  237. 52715 data "[213]3h46&=5i6[193]%8[193]c1[193]"
  238. 52716 data "[213]3h4[193]&==i6[193]%8=c1[193]"
  239. 52717 data "[213]3h4[193]&=6i6[193]%86c1[193]"
  240. 52718 data "[213]3h4[202][194][194][196][196][196][194][194][194][196][196][196][194][194][197][194]9==:[194][197]9==:9==:[197][194][197]"
  241. 52719 data "[213]3hu"
  242. 52720 data "[213]3hu"
  243. 52721 data "[213]3hu"
  244. 52722 data "[213]x"
  245. 52723 data "[213]x"
  246. 52800 data "[213]x"
  247. 52801 data "[213]x"
  248. 52802 data "hu[213]3"
  249. 52803 data "hu[213]3"
  250. 52804 data "hu[213]3"
  251. 52805 data "[199][194][194][196][217][196][194][194]=:[194][198][194][198][194][194][196][196][194][194][194][194][198];==<;==<[194][200]h4[213]3"
  252. 52806 data "[193]*:[193]c1[193]b5[208][211][210][193](9[193]h4[213]3"
  253. 52807 data "[193]*:5c1[193]b8=(9[193]h4[213]3"
  254. 52808 data "[193]*:=c1[193]b86(9[193]h4[213]3"
  255. 52809 data "[193]*:=c1[193]b1w3b1[199][194][194][204](9[195]h4[213]3"
  256. 52810 data "[193]*:6c1[193]b1w3b1[193][209]b15(9[195]h4[213]3"
  257. 52811 data "[193]*:[193]c1[193]b1w3b1[193][211]b1=(9[193]h4[213]3"
  258. 52812 data "[203][194][194][194];=[194][194][194][194][194][197][194][205][194][194][194][194][194][197][194][194][204](9[193]h4[213]3"
  259. 52813 data "[193])<[193]c8[193](9[193]h4[213]3"
  260. 52814 data "[195])<[193]c8[193](9[193]h4[213]3"
  261. 52815 data "[193])2[213]8)2[203]9==:9==:[204](9[195]h4[213]3"
  262. 52816 data "[193])2[213]8)2[193]i8[193](9[195]h4[213]3"
  263. 52817 data "[195])2[213]8)2=i8=(9[195]h4[213]3"
  264. 52818 data "[195])2[213]8)26i88(9[193]h4[213]3"
  265. 52819 data "[193])2[213]3[206]>[207][213]2)2[193]i8[193](9[193]h4[213]3"
  266. 52820 data "[193])2[213]3[206]a1[207][213]2)2[193]i8[203][194];=<[194];=<[194][204]h4[213]3"
  267. 52821 data "[195])<[206]a4[207]i3[193]c9[193]h4[213]3"
  268. 52822 data "[214])<[206]a4[207]i3[193]c9[193]h4[213]3"
  269. 52823 data "[205][194][194][194][194][194][194][194][194][194][194][198][194][204]????[207]i3[203][194][194][194][194][194][194][194][194][194][204]h4[213]3"
  270. 52900 data "[201]d5[203][194][194][194][194][204]i3[203][194][194][205][194][194][194][194][194][194][194][204]d5[193][213]7"
  271. 52901 data "d6[193]b3[208][193]i3[193]c2[193]+7[193]d5[193][213]7"
  272. 52902 data "d6[193]b45i3[193]c27+7[193]d5[193][213]7"
  273. 52903 data "d6[193]b4=i3[193]c2=+7[193]d5[193][213]7"
  274. 52904 data "[198][194][194][194][194][194][204]b3[211][193]i3[193]c28+7[193]d5[193][213]7"
  275. 52905 data "[193]-5[203][194][194][194][194][204]i3[203][194][194][201]+5[199][194][197][194][194][194][194][194][204][213]7"
  276. 52906 data "[193]-5[193]b4[193]i37+8[193],7[193][213]7"
  277. 52907 data "[193]-5[193]b4[193]i3=+8[193],7[195][213]7"
  278. 52908 data "[203];=[200]-2[193]b4[193]i3[193]+8[193],7[195][213]7"
  279. 52909 data "[193]c2[193]-2[193][209]b2[211][193]i3[193]+8[193],7[193][213]7"
  280. 52910 data "[197][194][194][197]=<[197][194]=<[194][201]i3[202][194][194][194][194][194][194][194][194][201],7[193][213]7"
  281. 52911 data "i?,a[195][213]7"
  282. 52912 data "i?,a[195][213]7"
  283. 52913 data "i?,a[193][213]7"
  284. 52914 data "[194][194][194][194][194][200]i2[199][194][194][194][194][194][200]i2[199][194][194][194][194][194][200],2[199][194][194][194][194][194][204][213]7"
  285. 52915 data "d5[202][196][196][201]d5[202][196][196][201]d5[202][196][217][201]d5[193][213]7"
  286. 52916 data "dp[193][213]7"
  287. 52917 data "dp[193][213]7"
  288. 52918 data "[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][201][213]7"
  289. 52919 data "[213]x"
  290. 52920 data "[213]x"
  291. 52921 data "[213]x"
  292. 52922 data "[213]x"
  293. 52923 data "[213]x"
  294. 53000 data "[213]7[199][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][201]"
  295. 53001 data "[213]7[193]dp"
  296. 53002 data "[213]7[193]dp"
  297. 53003 data "[213]7[193]d5[199][196][196][200]d5[199][196][196][200]d5[199][196][196][200]d5"
  298. 53004 data "[213]7[203][194][194][194][194][194][201][218]11[202][194][194][194][198][194][201].2[202][194][198][194][198][194][201]/2[202][194][198][194][215][198]"
  299. 53005 data "[213]7[193]1<[193].6[193]c17/6[193]02[193]"
  300. 53006 data "[213]7[193]1<[193].6[193]c1=/6[193]02[193]"
  301. 53007 data "[213]7[193]1<[193].6[203][194][204]/6[193]02[193]"
  302. 53008 data "[213]7[195]1<[193].6=c1[193]/6[193]02[193]"
  303. 53009 data "[213]7[195]1<[193].66c1[193]/6[193]02[193]"
  304. 53010 data "[213]7[195]1<[202][194][194][194][194]=<[197][194][197];=[194][194][194][194][197];=[197]"
  305. 53011 data "[213]7[193]1<id"
  306. 53012 data "[213]7[193]1<id"
  307. 53013 data "[213]7[193]1<id"
  308. 53014 data "[213]7[203][194][194][194][194][194][200]12[199][194][194][194][194][194][200]i2[199][194][194][194][194][194][200]i2[199][194][194][194][194][194]"
  309. 53015 data "[213]7[193]d5[202][196][196][201]d5[202][196][196][201]d5[202][196][196][201]d5"
  310. 53016 data "[213]7[193]dp"
  311. 53017 data "[213]7[193]dp"
  312. 53018 data "[213]7[202][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]"
  313. 53019 data "[213]x"
  314. 53020 data "[213]x"
  315. 53021 data "[213]x"
  316. 53022 data "[213]x"
  317. 53023 data "[213]x"
  318. 53100 data "[213]x"
  319. 53101 data "[213]x"
  320. 53102 data "[213]83a[213]?"
  321. 53103 data "[213]83a[213]?"
  322. 53104 data "[213]83a[213]?"
  323. 53105 data "[199][194][194][194][194][194][198][194][194][196][196][196][196][194][194]9=:[194][194][196][196][196][196][194][194][198][194][194][194][194][194][200][213]7"
  324. 53106 data "[193]d5[193]2c[193]d5[193][213]7"
  325. 53107 data "[193]d5[193]2c[193]d5[193][213]7"
  326. 53108 data "[193]d5[193]2c[193]d5[193][213]7"
  327. 53109 data "[193]d5[193]2c[193]d5[193][213]7"
  328. 53110 data "[193]d3[199][194][201]2c[202][194][200]d3[193][213]7"
  329. 53111 data "[193]d3[195]2g[195]d3[193][213]7"
  330. 53112 data "[193]d3[195]2g[195]d3[193][213]7"
  331. 53113 data "[193]d3[202][194][200]2c[199][194][201]d3[193][213]7"
  332. 53114 data "[193]d5[193]2c[193]d5[193][213]7"
  333. 53115 data "[193]d5[193]2c[193]d5[193][213]7"
  334. 53116 data "[193]d5[193]2c[193]d5[193][213]7"
  335. 53117 data "[193]d3[199][194][201]2c[202][194][200]d3[193][213]7"
  336. 53118 data "[193]d3[195]2g[195]d3[193][213]7"
  337. 53119 data "[193]d3[195]2g[195]d3[193][213]7"
  338. 53120 data "[193]d3[202][194][200]28[206]a2[203][194][194][194][194][194][194][194][198][194][201]d3[193][213]7"
  339. 53121 data "[193]d5[193]28[206]a2[207]47[193]d5[193][213]7"
  340. 53122 data "[193]d5[193]28[206]a2[207]47[214]d5[193][213]7"
  341. 53123 data "[201]d5[203][194][194][194][194][200]i3[206]??[203][194][194][194][194][194][194][194][204]d5[193][213]7"
  342. 59995 rem
  343. 59996 rem set up character set
  344. 59997 rem
  345. 59998 rem read and poke custom chars
  346. 59999 rem
  347. 60000 for i=0 to 90:read a:a=a*8+cb:for j=0 to 7:b=j+a:read x:poke b,x:next:next
  348. 60010 poke 56334,peek(56334)and 254:poke 1,peek(1)and 251
  349. 60020 for i=8 to 26*8:poke cb+i,peek(53248+i):next
  350. 60025 for i=36*8 to 42*8+7:poke cb+i,peek(53248+i):next
  351. 60030 for i=44*8 to 58*8:poke cb+i,peek(53248+i):next
  352. 60040 for i=cb+32*8 to cb+32*8+7:poke i,0:next
  353. 60050 poke 1,peek(1)or 4:poke 56334,peek(56334)or 1
  354. 60090 return
  355. 62997 rem
  356. 62998 rem character data
  357. 62999 rem
  358. 63000 data128,26,26,38,88,152,36,36,36
  359. 63001 data129,0,255,255,0,0,255,255,0
  360. 63002 data130,51,51,204,204,51,51,204,204
  361. 63003 data131,0,0,0,0,0,0,0,0
  362. 63004 data132,1,2,4,8,16,32,64,128
  363. 63005 data133,8,128,8,128,8,128,8,128
  364. 63006 data134,119,136,136,136,119,136,136,136
  365. 63007 data135,18,130,164,52,16,66,75,25
  366. 63008 data136,34,136,34,136,34,136,34,136
  367. 63009 data137,0,0,0,0,0,0,0,0
  368. 63010 data138,0,0,0,0,0,0,0,0
  369. 63011 data139,0,0,0,0,0,0,0,0
  370. 63012 data140,0,0,0,0,0,0,0,0
  371. 63013 data141,5,2,5,0,80,32,80,0
  372. 63014 data142,5,2,5,0,80,32,80,0
  373. 63015 data143,0,0,0,0,0,0,0,0
  374. 63016 data144,0,0,0,0,0,0,0,0
  375. 63017 data145,0,0,0,0,0,0,0,0
  376. 63018 data146,0,0,0,0,0,0,0,0
  377. 63019 data147,192,7,24,7,224,24,7,56
  378. 63020 data148,40,84,40,16,214,56,16,0
  379. 63021 data149,0,0,0,0,0,0,0,0
  380. 63022 data150,255,1,255,32,255,2,255,4
  381. 63023 data151,96,96,6,6,192,192,12,12
  382. 63024 data152,0,0,0,0,0,0,0,0
  383. 63025 data153,0,0,0,0,0,0,0,0
  384. 63026 data154,0,0,0,0,0,0,0,0
  385. 63027 data155,0,0,0,0,0,0,0,0
  386. 63028 data156,0,0,0,0,0,0,0,0
  387. 63029 data157,0,0,0,0,0,0,0,0
  388. 63030 data158,0,0,0,0,0,0,0,0
  389. 63031 data159,0,0,0,0,0,0,0,0
  390. 63032 data160,148,244,148,156,148,151,148,148
  391. 63033 data161,136,72,100,18,137,140,66,53
  392. 63034 data162,0,0,0,0,0,0,0,0
  393. 63035 data163,0,0,4,251,0,0,32,223
  394. 63036 data164,0,0,20,62,28,8,0,0
  395. 63037 data165,4,10,66,66,177,72,4,4
  396. 63038 data166,2,84,168,1,42,84,128,1
  397. 63039 data167,2,84,168,1,42,84,128,1
  398. 63040 data168,65,80,20,5,65,80,20,5
  399. 63041 data169,192,7,24,7,224,24,7,56
  400. 63042 data170,0,0,0,0,0,0,0,0
  401. 63043 data171,40,124,40,124,40,124,40,124
  402. 63044 data172,0,0,0,0,0,0,0,0
  403. 63045 data173,0,0,0,0,0,0,0,0
  404. 63046 data174,0,0,0,0,0,0,0,0
  405. 63047 data175,0,0,0,0,0,0,0,0
  406. 63048 data176,0,0,0,0,0,0,0,0
  407. 63049 data177,0,0,0,0,0,0,0,0
  408. 63050 data178,148,47,82,164,79,146,37,74
  409. 63051 data179,69,124,69,84,69,84,71,84
  410. 63052 data180,0,0,0,0,0,0,0,0
  411. 63053 data181,24,24,48,48,96,96,192,192
  412. 63054 data182,192,192,96,96,48,48,24,24
  413. 63055 data183,24,24,12,12,6,6,3,3
  414. 63056 data184,3,3,6,6,12,12,24,24
  415. 63057 data185,0,0,0,192,240,60,15,3
  416. 63058 data186,0,0,0,3,15,60,240,192
  417. 63059 data187,3,15,60,240,192,0,0,0
  418. 63060 data188,192,240,60,15,3,0,0,0
  419. 63061 data189,0,0,0,0,0,0,0,0
  420. 63062 data190,0,8,28,34,65,255,255,0
  421. 63063 data191,0,255,255,65,34,28,8,0
  422. 63064 data192,0,0,0,0,0,0,0,00
  423. 63065 data193,60,60,60,60,60,60,60,60
  424. 63066 data194,0,0,255,255,255,255,0,0
  425. 63067 data195,36,36,36,36,36,36,36,36
  426. 63068 data196,0,0,255,0,0,255,0,0
  427. 63069 data197,60,60,255,255,255,255,0,0
  428. 63070 data198,0,0,255,255,255,255,60,60
  429. 63071 data199,0,0,63,63,63,63,60,60
  430. 63072 data200,0,0,252,252,252,252,60,60
  431. 63073 data201,60,60,252,252,252,252,0,0
  432. 63074 data202,60,60,63,63,63,63,0,0
  433. 63075 data203,60,60,63,63,63,63,60,60
  434. 63076 data204,60,60,252,252,252,252,60,60
  435. 63077 data205,60,60,255,255,255,255,60,60
  436. 63078 data206,60,63,63,60,60,63,63,60
  437. 63079 data207,60,252,252,60,60,252,252,60
  438. 63080 data208,126,126,24,36,36,24,0,0
  439. 63081 data209,0,192,220,226,226,220,192,0
  440. 63082 data210,255,171,213,171,213,171,213,255
  441. 63083 data211,213,255,195,195,195,195,255,171
  442. 63084 data212,225,179,31,206,92,126,247,49
  443. 63085 data213,0,0,0,0,0,0,0,0
  444. 63086 data214,60,60,60,60,60,60,60,60
  445. 63087 data215,0,0,255,255,255,255,0,0
  446. 63088 data216,36,36,36,36,36,36,36,36
  447. 63089 data217,0,0,255,0,0,255,0,0
  448. 63090 data218,0,0,0,0,0,0,0,0
  449.